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ABSTRACT 



A version of the Graphics-oriented, Interactive, Finite 
element, Time-sharing System (GIFTS) has been developed for, 
and installed on, an IBM computer with the Conversational 
Monitor System (CMS). GIFTS, developed at, and available 
from the Interactive Graphics Engineering Laboratory of the 
University of Arizona, is an extensive code for static, tran- 
sient, modal, and constrained substructural analysis of three 
dimensional truss, plate, shell, and solid finite element 
models. A brief description of GIFTS, including insights 
into its logic and structure necessary to the version's 
development, and an in-depth description of the method used 
to invoke CMS commands from the executing program for the 
purpose of data base management are provided. The version, 
making use of the Tektronix 4000 series graphics terminals, 
is self-contained and portable, allowing its installation 
on other IBM computers with the CMS operating system. 
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I. INTRODUCTION 



The purpose of this thesis is to describe the development 
of an IBM (CP/CMS)^ version of the Graphics -oriented Inter- 
active Finite Element Time-sharing System (GIFTS). GIFTS, 
developed at, and available from the University of Arizona, 
is a set of computer programs designed to perform static and 
dynamic structural finite element analysis, making extensive 
use of interactive computer graphics which allows the user to 
ensure correct structural modeling and to view the results of 
the analysis in a manner most understandable to him. 

Versions of GIFTS have been developed for several differ- 
ent computers but not for the IBM, and in particular, for an 
IBM with CP/ CMS. At the Naval Postgraduate School it was 
desired to provide GIFTS as an instructional tool to the 
students on a system for which they enjoy ready access and 
were familiar. This system is the school's main frame, an 
IBM 3033 with CP/CMS. It was to meet this need that the 
development was undertaken. A self-contained IBM (CP/CMS) 
version of GIFTS for an IBM with CP/CMS was developed in such 
a way as to allow easy implementation on other IBM systems 
with CP/CMS. 



^Internat ional Business Machine with the Command Program 
and Conversational Monitor System. 
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It is not the intent of this thesis to provide a detailed 
description of GIFTS, for this, the reader should consult the 
GIFTS reference manuals [Refs. 1-4]. It is the intent to 
provide information on those areas of GIFTS logic and struc- 
ture that are necessary to the understanding of this version's 
development and to provide some guidance in the implementation 
and use of the GIFTS IBM (CP/CMS) version. 
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II. A BRIEF DESCRIPTION OF GIFTS 



GIFTS, developed by Professor Hussein A. Kamel and Mr. 
Michael W. McCabe of the University of Arizona, is an inter- 
active finite element analysis system designed to provide 
the user with a unified approach to model generation, model 
display (tabular or graphical), analysis and result display, 
with a minimum of input by the user. It may be used as a 

self-contained system, or as a pre- and post -processor for 
2 

other systems. It is operational on many systems, includ- 
ing mini-computers with cores having as few as 32,000 words 
of addressable memory (on mini- computers , the program modules 
must be overlayed) . 

GIFTS consists of over 100,000 lines of FORTRAN source 
code divided among 25 individually executable program modules. 
The modules, being run independently of each other, communi- 
cate by means of an automatically managed, disk resident 
data base, known as the Unified Data Base (UDB) . To perform 
a complete finite element analysis with GIFTS, the user exe- 
cutes a GIFTS procedure, using a number of modules in a 
specified order depending on the type of analysis being 
performed. GIFTS has procedures for static, transient, 
modal, and constrained substructural analysis of three 

7 

“Interfaces for pre- and post -process ing are available 
for ANSYS, SAP 4 , and NASTRAN. 
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dimensional truss, plate, shell, and solid finite element 
models. The program modules use interactive computer graphics 
extensively for viewing the results of model generation and 
problem solution. GIFTS can also provide the user with the 
information in tabular form. 

A. THE MODULES 

The GIFTS program modules vary in size from a few hundred 
lines to over 12,000 lines of machine independent code. They 
can be grouped according to their intended use. These group- 
ings are: 

1) the model generation and editing modules, 

2) the load and boundary condition generation, dis- 
play and editing modules, 

3) the general purpose computational and result 
display modules, 

4) the natural vibration analysis modules, 

5) the transient analysis modules, and 

6) the constrained substructuring modules. 

A brief description of the program modules can be found in 
Appendix A. 

B. THE LIBRARIES 

Commonly used subroutines and functions are grouped into 
a user library called the GIFTS library. For convenience, 
the GIFTS library is subdivided into five groups called 
LIBR1 , LIBR2 , LIBR3 , LIBR4 , and LIBR5. Of these groups, 
only LIBR5 contains machine dependent subroutines and 
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functions. LIBR5 is composed of approximately 30 routines 
containing machine dependencies that must be modified for 
each computer system on which GIFTS is implemented. The 
routines in LIBR5 are grouped according to function. The 
groups are the Graphics Package, the Character Manipulation 
Package, and the Data Base Management Package. It was through 
the modification of, and addition to, these packages that the 
IBM (CP/CMS) version was developed. 

1 . The Graphics Package 

This is a set of subroutines containing all the neces- 
sary software to drive a Tektronix 4000 series graphics ter- 
minal. If a different terminal is desired for the graphics 
output, these subroutines are the ones to be modified. 

2 . The Character Manipulation Package 

These subroutines are used to pack, unpack, compare, 
and change the format of characters and character strings. 

They conduct interactive I/O with the user and make Operating 
System calls for the date, time of day, and CPU time used. 

3 . The Data Base Management Package 

This package of routines performs data base manage- 
ment by invoking primitive file handling functions, such as 
opening, closing, defining, extending, renaming, printing, 
and deleting UDB files. It additionally performs all I/O 
operations with the direct access UDB files. 
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IBM IMPLEMENTATION 



Three requirements were established for this IBM (CP/CMS) 
version development of GIFTS. They were: to maintain the 

logic of the machine independent routines^ (that is, not to 
alter them) ; to continue the use of the Tektronix 4000 series 
terminals for graphics; and to provide a self-contained pack- 
age of routines that would allow installation on other IBM 
systems with little or no alteration. The only requirement 
not met was the first, to maintain the logic of the machine 
independent routines, but it was only necessary to modify 
subroutine FRESLT^ in LIBR1. This alteration and the accom- 
plishment of the other requirements are discussed below. 

A. THE SYSTEM 

The IBM (CP/CMS) version was developed on an IBM 3033 
with the Virtual Machine Facility/370 (VM/370) System. It 
should be noted that VM is not the operating system but 
rather the virtual machine 'manager' . 

The VM/370 system supervises four components: the con- 

trol program (CP) , the conversational monitor system (CMS) , 
the remote spooling communications subsystem (RSCS) , and 

"^The GIFTS' program modules, LIBR1, LIBR2, LIBR3, and 
LIBR4. 

4 See the Section on the Opening of Files in this Chapter. 
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the interactive problem control system (IPCS) . Only two of 
these components, CP and CMS, were necessary for the imple- 
mentation of GIFTS. More detailed information on CP/CMS can 
be obtained from References [5] through [8]. 

1 . The Control Program (CP) 

CP allocates to the virtual machine of each user the 
resources necessary for proper interface between the virtual 
machine, with associated virtual input/output (I/O) devices, 
and the real computer with associated real I/O devices. It 
additionally allows communication between virtual machines, 

2 . The Conversational Monitor System (CMS) 

CMS is the operating system of the virtual machine 
and as such has commands for editing, compiling, loading 
(linking), and executing programs. It also has commands for 
file manipulation that can be invoked from the CMS environ- 
ment, an 'EXEC' file 5 , or from an executing program. It is 
through the use of these file manipulation commands, invoked 
from GIFTS during execution, that the development of this 
version was made possible. A brief description of the CMS 
commands used in the IBM (CP/CMS) version can be found in 
Appendix B. 

a. Invoking CMS Commands from an Executing Program 
In order to invoke a CMS command from an execut- 
ing program it was necessary to provide an assembly language 

5 Tnis is the same as a command file in other operating 
systems . 
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program that would execute CMS commands passed to it from the 
executing program. To this end, the assembly program FRTCMX 
was developed. A listing of FRTCMX can be found in the list- 
ing of LIBR5A in Appendix H. FRTCMX executes the CMS commands 
in the CMS environment, and then returns control to the call- 
ing FORTRAN program. As an example, the FORTRAN statement: 

CALL FRTCMX (IERR,' ERASE ' , ' PIPJOINT • , ’ PTS ') 

would delete the file 'PIPJOINT PTS A 1 from the user's disk 
space. The argument IERR contains the CMS return code (error 
code) that could be checked to ensure the command execution 
was successful. More detailed documentation on the use of 
FRTCMX can be found in its listing. 

b. The CMS File Identifier 

CMS also controls the file identifier. A file 
created under CMS has an identifier composed of three parts: 
a file name (maximum of 8 characters) , a file type (maximum 
of 8 characters) , and a file mode (2 characters) . As an 
example, in the file identifier: 

PIPJOINT PTS Al. 

PIPJOINT is the file name, PTS is the file type, and Al 
(indicating the file is on the user's 'A' disk) is the file 
mode. CMS does not allow more than one version of a file to 
exist on a disk space. That is to say, two files on the same 
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disk space cannot have the same name and file type, which 
proved to be of some importance in this version's development 

B. THE IBM (CP/CMS) GRAPHICS PACKAGE 

As stated earlier, a goal of this verion's development 
was to continue the use of the Tektronix 4000 series terminals . 
for graphics. To this end, the GIFTS graphics package sup- 
plied by the University of Arizona was used and required only 
minor modifications. In addition to these modifications, it 
was necessary to add four assembly routines to provide for 
ASCII to EBCDIC conversion and non- interfering I/O operations 
between the graphics package and the terminal. This section 
is intended to cover the need for the modifications and the 
added subroutines. A description of all the graphics package's 
subroutines can be found in Appendix E, and a listing of the 
assembly routines can be found in Appendix H. 

1 . ASCII/EBCDIC Translation 

The IBM system uses the EBCDIC character set while 
the Tektronix terminals use ASCII. To allow communication 
between the computer and an ASCII terminal, an IBM ASCII 
interface is provided, within the system, that automatically 
executes the conversion between ASCII and EBCDIC characters. 

All I/O operations directed to an ASCII terminal must pass 
through this interface. 

6 See Section D of this Chapter on Data Base Management. 
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All output to the terminal from the graphics package 
is broken up into single characters and placed into an output 
array named LCHOUT, which is dimensioned 80. These graphics 
package output characters can be divided into three groups: 
the graphics characters that are interpreted by the terminal, 
when in graphics mode, as being coordinates to which the 
terminal's cursor is to be moved and/or to which a vector is 
to be drawn; the control characters that place the terminal 
in alphanumeric mode, graphics mode, erases the screen, rings 
the bell, etc.; and the text that is to accompany a given plot. 

In the GIFTS' graphics package, as with all similar 
packages, the graphics characters, that is, those characters 
that provide screen coordinates to the terminal, are computed 
in ASCII Decimal Equivalent (ADE) integers. These ADE inte- 
gers, relating directly to ASCII characters, after being cal- 
culated, are placed into array LCHOUT for output. If LCHOUT, 
containing these ADE integers, were output to the terminal, 
the computer system's ASCII interface would interpret them 
as being EBCDIC, resulting in improper conversion to ASCII 
and output to the terminal. Because of this, it is necessary 
to convert the ADE integers contained in LCHOUT to EBCDIC 
characters before output to the terminal. This translation, 
an well as the output to the terminal, is accomplished by 
the assembly routine WRTADE. WRTADE converts the array of 
ADE characters to EBCDIC and sends them to the terminal with- 
out a carriage return being added to the end of the output 



17 



array . For the case where input from the terminal is required 
by the graphics package, the opposite logic applies. Routine 
RDADE reads the characters from the terminal, converts them 
from EBCDIC to ASCII and places them into a desired array for 
use by the graphics package. More detailed documentation on 
WRTADE and RDADE can be found in the listing of LIBR5A in 
Appendix H. Since the graphics characters are calculated in 
ADE integers and placed into the output array in that form, 
it is necessary that all other characters placed into the 
array also be ADE integers. For the control characters, this 
presents no difficulties since they are already defined in 
the graphics package in ADE form. The text to accompany the 
plot, however, is passed to the graphics package as EBCDIC 
characters in A4 format (up to 4 characters per word) . Before 
the text can be placed into the output array, it must first be 
broken up into individual characters and converted to ADE 
integers. This is accomplished by assembly routine TOADE . 
Additionally, in subroutine CURSOR, following the use of 
RDADE, it is necessary to translate a character from ADE to 
EBCDIC for use outside the Graphics Package. The assembly 
routine TOEBCD is used for this purpose. A listing of both 
TOADE and TOEBCD can be found in Appendix H. 

2 . Flushing the Graphics Buffer to the Terminal 

When the terminal is in the graphics mode, all char- 
acters received are interpreted by the terminal as being 
either control or graphics characters. If interline characters 
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are added to the end of the graphics output buffer when 
'flushed' to the terminal, they may be interpreted as con- 
trol characters causing the terminal's mode to be modified, 
or as graphics characters causing unintended or random 
vectors to be drawn. As indicated in the previous section, 
subroutine WRTADE prevents a carriage return from being added 
to the end of the output buffer, but the IBM system continues 
to add two characters to the end of the buffer. The first is 
the control character DC3, and the second the graphics char- 
acter DEL. Since these characters are added to end of the 
output buffer, it was necessary to ensure that when the char- 
acters are received by the terminal, it would be in alpha- 
numeric mode, thus preventing their interpretation as part 
of the intended graphics package output. This was accomplished 
by placing the ADE integer 31 (equivalent to the ASCII control 
character US) , which places the terminal into the alphanumeric 
mode, into the output array, as the last character. 

As a result of placing the terminal into alphanumeric 
mode at the end of each buffer flush, it was necessary to 
ensure that the set of graphics characters describing the 
coordinates for a vector not be split between buffers. If 
they are split, the desired results may not be obtained. A 
coordinate description, in ADE form, can consist of up to 
four characters, so in subroutine PLTCHR, which computes the 
ADE integers for the desired coordinates, a check is made to 
ensure that there is room in the output array for at least 
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four additional characters. If there is not, the array is 
flushed, which causes the terminal to be left in alphanumeric 
mode. After this flush, and before PLTCHR continues to cal- 
culate the new coordinates , the control character GS (ADE 29) , 
which causes the terminal to switch to graphics mode, is 
placed into the output array followed by the four control 
characters that describe the graphic cursor's position prior 
to the previous flush. It is necessary to provide these coor- 
dinates because the first vector drawn after the control char- 
acter GS is issued to the terminal, is invisible. PLTCHR then 
continues and calculates the new coordinates and causes them 
to be placed into the output array. 

C. THE IBM (CP/ CMS) CHARACTER MANIPULATION PACKAGE 

The modifications necessary to the Character Manipulation 
Package were not extensive in nature and were mainly related 
to ensuring that the characters used in the many FORTRAN data 
statements were in EBCDIC form. In addition to these modi- 
fications, extensive use was made of five assembly routines 
provided by the Interactive Graphics Engineering Laboratory 
of the University of Arizona, for character manipulation. 

The routines are DECODE, ENCODE, DECOD, BTD, and ENF . A 
description of all the routines making up the IBM (CP/CMS) 
Character Manipulation Package can be found in Appendix F 
and a listing of the assembly routines can be found in 
Appendix H. 
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Of importance in this package are the calls to system 
routines for the date, time of day, and CPU time used. The 
routine called for the date and time of day is DATIME (called 
in subroutines DATEP and TIMEP) and for the CPU time used is 
SETIME (called by subroutine INITIO of the Data Base Manage- 
ment Package) and GETIME (called by subroutine SECOND). If 
these routines are not available on other systems, appropriate 
substitutions must be made. 

D. THE IBM (CP/ CMS) DATA BASE MANAGEMENT PACKAGE 

Since the modules communicate with each other through the 
UDB , it is of the utmost importance that it be correct and 
managed properly. In addition, it is important that in the 
management process, that the data base disk space be minimized. 
This section covers the management of the UDB on the IBM with 
CP/ CMS. A description of all routines used in the IBM (CP/CMS) 
Data Base Management Package can be found in Appendix G, and 
a listing of the assembly routines can be found in Appendix H. 

1 . The I3M (CP/CMS) Data Base 

The UDB for the IBM (CP/CMS) version is identical to 
that of the other versions except for the addition of one 
file, which will be covered in the SPECIAL SEQUENTIAL DATA 
BASE FILE section below. The UDB consist of up to 48 random 
access and 9 sequential files that are managed automatically 
by GIFTS. 
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a. The Direct (Random) Access Files 

The 48 unformatted direct access UDB files used 
by the IBM (CP/ CMS) version are identical to those used by 
other versions. It is necessary at this time to introduce 
some GIFTS terminology in regards to the UDB. 

A 'logical record' is the smallest unique collec- 
tion of data into which the data contained in a file may be 
divided. As an example, all the data pertaining to one node 
in the UDB file with the file type PTS make a 'logical record'. 
The logical record size, in words, is determined by summing 
the product of the number of 'integers' in the logical record 
times the number of machine words per integer and the number 
of 'reals' in the logical record times the number of machine 
words per real number. Consider again the UDB file with the 
file type of PTS. It has 10 integers and 17 real numbers per 
logical record. For single precision, the IBM uses one word 
for both integer and real numbers, and for double precision, 
IBM uses one word for integer numbers and two words for real 
numbers. The word size for a logical record in the PTS file 
would therefore be 27 for single precision and 44 for double 
precis ion . 

A 'physical record' is the collection of data 
that must be read from or written to a file with a single I/O 
instruction. It may be made up of any integral number of 
logical records. The number of logical records stored in a 
physical record of a file is termed the file's 'blocking 
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factor'. The UDB file type PTS has a blocking factor of 10, 
and thus a physical record word size of 270 words for single 
precision and 440 words for double precision. When a phys- 
ical record is read or written to file type PTS, information 
on 10 nodes will be involved. 

It is the physical record word size that is used 
in the FORTRAN statement DEFINE FILE to define the random 
access files. The physical record word size for all the UDB 
file types can be found in Appendix C. Both single and double 
precision sizes are included although GIFTS currently is only 
single precision. It is anticipated that a double precision 
version will be available in the near future. 

The file name assigned to these random access UDB 
files is the same as the job name provided to GIFTS by the 
user during module execution. For example, if the user were 
analyzing a pipe joint, he may provide GIFTS a job name 
PIPJOINT (the job name, like the file name, is limited to 8 
characters) , in which case the UDB file type PTS would have 
the file identifier 'PIPJOINT PTS A'. 

b. Sequential Data Base Files 

Of the nine sequential files in the UDB, only 
five will be discussed here, with the remaining four discussed 
under the heading of SPECIAL SEQUENTIAL DATA BASE FILES below. 

These sequential UDB files do not require, as 
with the direct access files, a specified file size. The 
file types are CFR, DGT , DYN, HST, and SAV. 
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The file type CFR is used to store data involved 
with contours used in module RESULT. File type DGT is used 
to store digitizer information, while DYN stores information 
relating to modal analysis, with HST containing information 
for a histogram plot in transient analysis. File SAV is 
used to save the stiffness matrix. 

These files are automatically created by the 
GIFTS modules and are given a file name equal to the GIFTS 
j ob name . 

c. Special Sequential Data Base Files 

These files are placed in this cateogry because 
they do not follow the naming convention of other UDB files 
and are not necessarily created by the GIFTS modules. 

The first of these special UDB files has the file 
type SRC. An SRC file can be created with any file name, by 
the user, via the text editor in the CMS environment and will 
contain a list of GIFTS commands and their associated data. 

The commands can be executed from an interactive module via 
the command OLB (On Line Batch) . When the OLB command is 
executed GIFTS prompts the user for the file name of the SRC 
file. After the file name is entered, the commands contained 
in the file are read and executed by GIFTS. For more informa- 
tion on the SRC file's use, consult the GIFTS User's Reference 
Manual [Ref. 1] . 

The next special file has the identifier GIFTS5 
INF and resides on the GIFTS system's disk space. This file 
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contains a listing of all GIFTS' commands with instructions 
for their use. The file is accessed from interactive modules 
via the command HELP. When the command is issued, GIFTS 
prompts the user for the command for which he desires inform- 
ation. After this is entered, GIFTS opens the file, locates 
the desired information, and displays it at the terminal for 
the user. 

The last two special files are GIFTS5 EST and GIFTS5 
ESX which generally reside on the user's disk space. GIFTS5 EST 
contains information which is used by solution module OPTIM to 
make solution time estimates for the solution modules STIFF, 
DECOM, DEFL, and STRESS. These four modules perform updates 
to the file during their execution. GIFTS logic is such that 
during this updating procedure, it performs both read and 
write operations to GIFTS5 EST. In other computer systems on 
which GIFTS is operated, this is accomplished by opening one 
GIFTS5 EST file for input and another for output, on the same 
disk space. Since the IBM system does not allow two files to 
exist on the same disk space with the same identifier, this 
presented a problem. This problem was solved by opening file 
GIFTS5 EST for input, but having output directed to GIFTSS 
ESX. This is accomplished when GIFTS calls for the opening 
of GIFTS5 EST for output. The subroutine that opens sequen- 
tial files for output, changes the file type from EST to ESX. 
When these modules complete their I/O operations on these 
files, and the files are closed, GIFTS5 EST, now being 
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superseded by GIFTS5 ESX, is deleted from the user's disk 
space, so that the user will only have one of these files 
present on his disk space. When the next GIFTS module is 
executed, GIFTS5 ESX is renamed GIFTS5 EST, making it ready 
for input. If the user executes one of the solution modules 
without GIFTS5 EST or GIFTS5 ESX being present on his disk 
space, GIFTS will use the GIFTS5 EST file on the GIFTS system's 
disk space for input and will create GIFTS5 ESX on the user's 
disk space during output. 

2. Defining the Direct Access Files and GIFTS Module 

ibmudb 

Before unformatted direct access I/O operations can 
occur, the direct access file must first be defined. This is 
accomplished with the FORTRAN statement: 

DEFINE FILE ISL (INR, ISR, U, IV) , 

where: ISL is the logical unit number assigned to the file, 

INR is the maximum number of 'physical records' 
that can be contained in the file, 

ISR is the 'physical record' size in words, 

U indicates that the records are to be written 
and read without format control, and 

IV is the record number associated variable (not 
used in GIFTS but must be included in the 
statement) . 

In all the versions of GIFTS that have been available, 
the machine's FORTRAN allowed ISL, INR, and ISR to be integer 
variables. The logics and structure of the GIFTS data base 
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management was based on this. This fact allowed the use of 
one DEFINE FILE statement, located in subroutine DEFIN of 
LIBR5, in these versions. The logical unit number (ISL) , the 
'physical record' size in words (ISR) , and the number of 
'physical records' required (INR) , were simply passed as 
arguments to this subroutine. When it became necessary to 
increase the size of the file, that is increase the number 
of records allowed in the file (INR), the file was closed via 
a call to a system function or through the use of a FORTRAN 
statement, and then the file would be redefined with the same 
value for ISR and the increased value for INR. The logical 
unit number (ISL) for the file could change as the file was 
opened and closed. 

This logic presented a problem for the IBM (CP/CMS) 
version, since both the IBM FORTRAN G and FORTRAN H-extended, 
available at the Naval Postgraduate School, do not allow ISL, 
INR, and ISR to be integer variables. They must be integer 
constants. Additionally, since there was no way to close a 
file during execution' , once the DEFINE FILE statement was 
made in an executing program, it could not be changed in 
that program to allow for file growth. 

It became clear that a DEFINE FILE statement would be 
required for each direct access file. For this, logical unit 

'The CMS command FINIS only closes a file in the CMS en- 
vironment, not in the FORTRAN execution environment (IBCOM) . 
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numbers 50 through 98 were used and the 'physical record' size, 
in words, was calculated as described in the preceding section 
on direct access files. This left only the number of 'physical 
records' (INR) to be entered, and as the only undetermined 
quantity, with its value dependent on the desire to conserve 
disk space and to ensure that the user would not be unknowingly 
constrained by a data base too small for a desired analysis. 
Both of these seemingly opposite requirements were met through 
the introduction of the new GIFTS module I3MUDB. 

Before continuing with more information on program 
IBMUDB, it is necessary to explain some facts about direct 
access file creation on the IBM system and about some addi- 
tional GIFTS' logic and structure. 

Consider the FORTRAN statement: 

DEFINE FILE 10 (100, 27, U, IV) . 

It defines a direct access, unformatted file on logical unit 
10. Each 'physical record’ will be 27 words long and there 
may be up to 100 ’physical records' xvritten to the file. 

The statement itself does not cause the creation of this 
file. It is only after the file is written into that this 
occurs. If the file did not exist prior to program execu- 
tion, and only 5 records are written to the file, the system 
will write those 5 records, plus fill the remaining 95 
records with zeros. The result is a great deal of wasted 
disk space. However, if the file existed on the disk space 
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prior to the program execution containing this DEFINE FILE 
statement, there could be a different result. As an example, 
assume that the file in question was created by a previous 
program execution containing the statement: 

DEFINE FILE 10 (1,27,U,IV). 

This is similar to the previous DEFINE FILE statement except 
that only one record can be written Cor read) , as indicated 
by a value of 1 for INR. When the program containing the 
DEFINE FILE statement allowing 100 records is executed and 
the file written into, only those records written will be 
added to the file. As an example, if during the second pro- 
gram's execution, the same five records are written to the 
file, only those five records will be written to the disk, 
not the 100 as before, thus saving disk space. It can be 
seen that this method, if properly used, could result in the 
conservation of disk space while allowing for file growth. 

It is now necessary to discuss some important facts 
about GIFTS and its data base management logic. Whenever 

g 

one of the GIFTS model generation modules is first executed 
for an analysis, it checks for the presence of the data base 
files for the given job name, and if they are present, GIFTS 
calls for the deletion of the old data base and the creation 
of a new one. If the data base for an analysis was created 

Slodules BULKM, BULKS, EDITM, and EDITS. 
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prior to the execution of one of these modules, for the pur- 
pose of conserving disk space and allowing for file growth, 
as described above, its intended purpose would be defeated 
if it were deleted. 

The new GIFTS module IBMUDB was developed to create 
a 'dummy* data base for GIFTS and is executed prior to per- 
forming an analysis on the IBM. In IBMUDB, each direct access 
data base file is defined with its respective 'physical record' 
size, in words, and with a maximum of one record. Then, in 
the first word of that record, the integer -999 is written. 
Thus, a data base file with -999 in the first word of the 
first record is considered a 'dummy' data base file, and 
through the modification of the Data Base Management Package 
of LIBR5, GIFTS considers a 'dummy' file not to be present. 

A listing of module IBMUDB can be found in Appendix D. 

The DEFINE FILE statements executed in all modules, 
except IBMUDB, are located in subroutine INITIO of the Data 
Base Management Package of LIBR5. In these statements, each 
direct access data base file is defined with its respective 
logical unit number and 'physical record* size in words, and 
with a maximum number of records of 1,000,000, which essen- 
tially provides the user unlimited growth for the data base. 
The actual data base size will only be limited by the user's 
disk space available. 
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3 . Opening of the Data Base Files 

On the IBM system, a file is opened automatically when 
9 

an I/O operation is performed, using the file's logical unit 
number. If the logical unit number has not been associated 
with a file identifier by the user, CMS automatically assigns 
an identifier based on the logical unit number used. As an 
example, if the sequential I/O statement: 

WRITE (29,100), 

were executed without the association, CMS would assign the 
identifier: 



FILE FT29F001 A, 

which tells nothing about the file contents. In keeping with 
the original structure of GIFTS, the opening of a file was con- 
sidered to be the association of the proper file identifier 
with its logical unit number. 

In other versions of GIFTS, a maximum of thirteen files 
(ten direct access and three sequential) were allowed to be 
open at any given time. Generally, logical unit numbers 1 
through 4 and 7 through 12 were used for the direct access 
files while 13 through IS were used for the sequential files. 
The logical unit numbers were assigned by subroutine SLTASN 

9 

For direct access files the DEFINE FILE statement must 
precede the I/O operation. Additionally, if the operation 
is for input, the file must already exist. 



31 



of the Data Base Management Package. When necessary, the 
logical unit number would be released by the closing of the 
file and then the freeing of the number by subroutine FRESLT 
in LIBR1. This logic works provided that during the execution 
of a program, a logical unit number could be used for more 
than one direct access file identifier, which is not the case 
for the IBM system with FORTRAN G or FORTRAN H- extended. On 
the IBM, once a logical unit number is used for a given direct 
access file, it cannot be associated with any other file. 
Because of this, in the IBM (CP/CMS) version, each UDB file 
is assigned its own logical unit number. Subroutine FRESLT, 
which was in LIBR1 and thus considered a machine independent 
routine, was moved to LIBR5 and made a 'dummy’ routine, that 
is, it was changed to contain no executable FORTRAN statements. 
Subroutine SLTASN was also made a 'dummy' routine. These two 
routines were not deleted from GIFTS because they are called 
by routines contained in the machine independent portions of 
GIFTS and it was desired not to alter these. To compensate 
for the void left by making SLTASN a 'dummy' routine, subrou- 
tine MANAGE was added to the Data Base Management Package. 

This routine relates a data base file type with its respec- 
tive logical unit number. It will return the logical unit 
number if provided with the file type or the file type if 
provided with the logical unit number. MANAGE is called only 
by routines contained in the Data Base Management Package. The 
logical unit numbers for each of the data base files can be 
found in Appendix C. 
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All the data base files are opened, that is the data 
base file identifier is associated with its respective logical 
unit number, by invoking the CMS command FILEDEF during program 
execution, when called for by GIFTS. For direct access files, 
this is accomplished in subroutine DEFIN. Here the FILEDEF 
command is issued and has the form: 



FILEDEF ISLDEF DISK XJOB EXT 8 A (XTENT 1000000 DSORG DA) 



where: ISLDEF is a double word real variable containing 

the logical unit number, 



DISK indicates the file is to be disk resident, 



XJOB is a double word real variable containing 

the file name, 

EXT8 is a double word real variable containing 

the file type, 

A is the file mode, 

XTENT 1000000 is the maximum number of records 
in the extent for the file, and. 



DSORG DA indicates that the data set organization 
is direct access. 



For the sequential files, the statement: 

FILEDEF ISLDEF DISK XJOB EXT 8 A 

is generally used, with ISLDEF, DISK, XJOB, EXT8 , and A 
having the same meaning as for the direct access FILEDEF. 



■^This is accomplished via a call to assembly routine 
FRTCMX discussed in Section A of this Chapter. 
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Three subroutines, OPENIF, OPENOF, and OPENLP are used 
to open the sequential files. Subroutine OPENOF opens a file 
for output and uses a FILEDEF statement identical to the one 
above. Subroutine OPENIF is used to open a sequential file 
for input. In this routine, if the file to be opened is either 

GIFTS5 EST or GIFTS5 INF,^ a check is made to determine if 

the file exists on the user's disk, if it does not, the FILEDEF 

for the file is made with the file mode set to C, where C in- 

dicates that the file is to be read from the GIFTS system's 
disk space to which the user is linked. Subroutine OPENLP 
opens a sequential file, for output, that may be spooled to 
the line printer by GIFTS. The FILEDEF used here is: 

FILEDEF 20 DISK PRTNAM PRNTFILE A, 



where : 20 is the logical unit number, 

DISK indicates that the file is to be disk 

res ident , 

PRTNAM is a double word real variable containing 

the file name, provided by the user, 

PRNTFILE is the file type, and, 

A is the file mode. 

4 . Closing Files 

Since the IBM FORTRAN G and FORTRAN H-extended do not 
provide FORTRAN statements that allow a file to be closed 



11 See section entitled Special Sequential Access Files in 
this Chapter. 
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during execution, the IBM automatically closes all files opened 
during execution when the execution is terminated. This, coupled 
with the fact that GIFTS has not been limited as to the number 
of files it may have opened during execution (see the previous 
section) , it may at first appear that there is no need to be 
concerned about closing a file, which is in fact the case in 
the FORTRAN execution environment, IBCOM. However, in the C.MS 
environment, in order to rename a file, it must be inactive 
(closed). There is a CMS command, FINIS, that does allow for 
the closing of a file in the CMS environment. This command is 
invoked from GIFTS during execution via a call to FRTCMX (see 
Section A of this Chapter) in subroutine CLOSEF of the Data 
Base Management Package of LIBR5. This command has been in- 
cluded in CLOSEF for the express purpose of allowing a file 
to be renamed, which will be discussed later in this Chapter. 

The FINIS command issued in CLOSEF has the form: 

FINIS XJOB EXT 8 A, 

where XJOB and EXT8 are double word real variables containing 
the file name and file type, respectively, and A is the file 
mode . 

There is an additional subroutine called by GIFTS to 
close a file. It is subroutine CLOSLP, which is intended to 
close the line printer file and spool it to the line printer 
as directed by the user. For this version, the system was 
allowed to close the file at the termination of module 
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execution. When the subroutine is called, it will, if a prin- 
ter file has been created, prompt the user if he desires the 
file to be spooled to the line printer or not. In either 
case, the file will remain on the user's disk space following 
execution termination. The CMS command used here is: 

PRINT PRTNAM PRNTFILE A, 

where: PRTNAM is a double word real variable containing 

the file name, 

PRNTFILE is the file type, and 

A is the file mode. 

5 . Deleting Files 

Based on the discussion in the section entitled 
DEFINING THE DIRECT ACCESS FILES AND GIFTS MODULE IBMUDB , 
earlier in this Chapter, it is obvious that deletion of a 
direct access data base file would defeat the logic behind 
the use of module IBMUDB. When GIFTS calls subroutine DELETE 
for the deletion of that file, rather than being deleted, it 
is made into a 'dummy' file by writing -999 into the first 
word of the first record of the file. A 'dummy' file will 
be interpreted by the Data Base Management Package as not 
being present. Subroutine DELETE does delete sequential 
files via the CMS command ERASE. This command in DELETE has 
the form: 

ERASE XJOB EXT 8 A 

where XJOB, EXT8 and A are the same as those for the FINIS 
command in the previous section. 
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6 . Renaming Files 

During the execution of some of the GIFTS modules, 
temporary files are created and later renamed. Specifically, 
the data base file types PTX, LDX, and SLX are created and 
later renamed PTS , LDS , and SLI , respectively. To understand 
better the need to do this, and the logic of GIFTS in this 
matter, consider the file type PTS. This file contains all 
the information pertaining to the nodes of the model and is 
first created during model generation. The nodes are entered 
in the file in numerical order, based on user assigned numbers. 
Solution module OPTIM is executed to optimize the node number- 
ing in order to decrease the problem 'band width'. In this 
process, the nodal information is read in from file type PTS, 
and the nodes are renumbered and output in numerical order, 
based on the optimization renumbering, to file type PTX. 

Once this has been accomplished, OPTIM calls for file type 
PTS, of the current job, to be deleted and for the renaming 
of file type PTX, of the current job, to be renamed to file 
type PTS. The renaming is accomplished in subroutine RENAME 
of the Data Base Management Package. Since direct access 
files are not actually deleted (see the preceding section on 
the deleting of files), but rather made into 'dummy' files, 
both PTS and PTX will actually always be present on the disk. 

In order to maintain both files on the disk, what is actually 
desired is an exchange of names between PTS and PTX. This ex- 
change of names is accomplished via the CMS command RENAME with 
the form: 
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RENAME XJOB PTS A XJOB XXX A 
RENAME XJOB PTX A XJOB PTS A 
RENAME XJOB XXX A XJOB PTX A 



Here, the file with the identifier XJOB PTS A is renamed XJOB 
XXX A, then file XJOB PTX A is renamed XJOB PTS A and finally, 
file XJOB XXX A is renamed XJOB PTX A. This 'around about' 
method is necessary due to the fact that no two files can 
exist on a CMS managed disk with the same identifier. 

In subroutine RENAME, the actual RENAME command has 
the form: 

RENAME XJOB EXT 81 A XJOB XXXXX A 

RENAME XJOB EXT 8 2 A XJOB EXT 81 A 

RENAME XJOB XXXXX A XJOB EXT 8 2 A 



where: XJOB is a double word real variable containing 

the file name, 



EXT 81 

and are double word real variables, each con- 

EXT82 taining one of the file types to be renamed, 

XXXXX is the intermediate file type 'XXX' for 

the name exchange process, and 

A is the file mode. 



There is an additional complication to the renaming 
process resulting from the inability to close a file in the 
FORTRAN execution environment (IBCOM) of the IBM system. 
Because of this, once an I/O operation has been performed to 
a direct access file with its respective logical unit number, 
that logical unit number cannot be changed. Again consider 
the file types PTS and PTX. Their logical unit numbers in 
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this version are 86 and 87 respectively. If, during the exe- 
cution of OPTIM, after the files have been renamed, an I/O 
operation is directed at file type PTS (the old PTX file) , 
logical unit number 87 (the logical unit number old file PTX) 
must be used. Since subroutine MANAGE “ assigns logical unit 
numbers based on file types, it was necessary that MANAGE be 
aware when renaming occurred, so that the renamed files would 
maintain their original logical unit numbers. This was accom 
plished by setting a switch, passed to MANAGE by a labeled 
common block, in RENAME for the files that are renamed. 

It was also necessary, in this IBM (CP/CMS) version 
to rename, if it exists, file GIFTS5 ESX A to GIFTS5 EST A 10 
at the start of module execution. This is accomplished by 
invoking the CMS RENAME command in subroutine INITIO of the 
Data Base Management Package. 

7 . Checking for a File’s Presence 

GIFTS utilizes logical function PRESNT of the Data 
Base Management Package to check for the presence of a UDB 
file for use by GIFTS. PRESNT first determines if the file 
is present on the user's disk space via the CMS command: 

STATE XJOB EXT 8 A. 



1 ? 

“See the Section on the Opening of Files in this Chapter 

■^See the section on Special Sequential Data Base Files 
in this Chapter. 
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If the file is sequential and is determined to exist on the 
user's disk space, PRESNT is set equal to TRUE, if not on 
the disk space, then it would be set to FALSE. For a direct 
access file, if the file exists on the disk space, the first 
word of the first record is read and if it does not equal 
-999, PRESNT is set equal to TRUE, and if it does equal -999, 
it is a 'dummy' file and PRESNT is set equal to FALSE. If, 
on the other hand, the file is direct access and is not pre- 
sent on the user's disk space, PRESNT stops module execution 
and issues the message: 

UDB FOR JOB XXXXXXXX NOT CREATED VIA IBMUDB . 
where XXXXXXXX will be the job name provided GIFTS by the user. 

E. THE ADDED ASSEMBLY ROUTINES (LIBRSA) 

For convenience, all the assembly routines for this version 
of GIFTS have been placed, as entry points, into LIBRSA. A 
listing of LIBR5A can be found in Appendix H. 

F. IBM (CP/CMS) INSTALLATION INSTRUCTION 

The installation of GIFTS on the IBM involves the trans- 
ferring of the source code from tape to the CMS disk space, 
the compiling of the code, its loading (linking) and execu- 
tion. This section covers the steps necessary to install 
GIFTS on the IBM system at the Naval Postgraduate School. 
Installation on other systems should vary only slightly. 
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The GIFTS source code is received from the University of 
Arizona on an unlabeled nine track tape. Accompanying the 
tape is a tape directory indicating the names and sizes of 
the files and the order in which they were written onto the 
tape . 

At the Naval Postgraduate School, all but one of the tape 
drives are attached to MVS (Multiple Virtual System - the batch 
operating system). Because of this, it has proven expedient 
to first transfer the files to an MVS disk and then to the CMS 
disk space. Transfer from the tape to the MVS disk is accom- 
plished via the IBM OS Utility IEBGENER. A listing of the file 

TAPE2MVS JCL (which resides on the GIFTS disk space), containing 

14 

the necessary job control statements for the transfer via 
IEBGENER can be found in Appendix I. These job control state- 
ments will cause the first 37 files on the tape to be trans- 
ferred to disk MVS004 with the respective file identifiers 
S3161.FILE1 through S3161 . FILE37 . To transfer the files to 
the CMS disk space, it is first necessary to link to and 
access MVS004. This is accomplished by issuing the commands: 

CP LINK MVS 36B 36B RR 
ACCESS 36B E. 

Once this is done, the files can be transferred to CMS, re- 
named in accordance with the tape directory, and packed, by 

^These job control statements are for an 800 bpi ASCII 
tape . 
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the use of the CMS commands listed in Appendix I. At the 
Naval Postgraduate School, these commands are contained in 
file MVS2CMS EXEC (on the GIFTS disk space) and can be exe- 
cuted by issuing the command MVS2CMS. For future updates, if 
the number, name, or order of the files to be transferred 
differ from those now listed in TAPE2MVS JCL and MVS 2 CMS EXEC, 
appropriate changes should be made. 

All the FORTRAN program modules and libraries, except 
BULKM and BULKS, can be compiled with the IBM FORTRAN G com- 
piler. It will be necessary, due to variations in the FORTRAN 
used, to compile BULKM and BULKS with the IBM FORTRAN H-extended 
comp iler . 

Following compiling, the program modules and libraries are 
ready for loading and execution. This, as an example, can be 
accomplished for program module BULKM, via the CMS commands: 

LOAD BULKM LIBR1 LIBR2 LIBR3 LIBR4 LIBR5 LIBR5A 
START. 

At the Naval Postgraduate School, this is accomplished by the 
use of an exec file (see Appendix H) . 

G. IBM (CP/CMS) USER INSTRUCTIONS 

The user's instructions for the IBM (CP/CMS) version vary 
only slightly from those contained in the GIFTS User's Refer- 
ence Manual [Ref. 1]. Appendix J contains all necessary 
additional information to use this version at the Naval Post- 
graduate School. 
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IV. SUMMARY AND RECOMMENDATIONS 



In summary, the IBM (CP/CMS) version of GIFTS developed 
is a self-contained, portable system that will allow easy 
installation on other IBM computers with the CMS operating 
system. 

It is recommended that additional work be done, at the 
Naval Postgraduate School, on the Graphics Package to enable 
the use of the Tektronix 618 graphics terminals being installed 
on the IBM system. 
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APPENDIX A: 



DESCRIPTION OF GIFTS MODULES 

IBM DATA BASE INITIALIZATION 

IBMUDB A program to create the dummy'*' 0 data base for the 
IBM (CP/CMS) version of GIFTS. 

MODEL GENERATION AND EDITING 

BULKM An automated three dimensional plate and shell 

model generator. It is suitable for large contin 
uous structures that can be easily modeled by 
repetitious generation of points and elements. 

BULKS A three dimensional solid model generator. One 

may ask for the display of the edges, and may add 
and display selected point and element slices. 

EDITM Designed to update and correct BULKM models, 

although it can be used to generate simple models 
and ones too complex for BULKM. 

EDITS A three dimensional solid mesh editor. It may be 

used to update or correct BULKS models, or to gen 
erate simple models and those too complex for 
BULKS. 
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See Chapter III, Section D 



Subsection 2. 
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LOAD AND BOUNDARY CONDITION GENERATION, DISPLAY AND EDITING 



BULKF 



BULKLB 



LOADS 



EDITLB 



Suppress those freedoms which the generated model 
cannot support, thereby relieving the user of the 
necessity of suppressing all superfluous freedoms 
by hand. 

The bulk load and boundary condition generator 
designed to apply loads to models generated with 
BULKM. It may be used to apply distributed line 
and surface loads and masses, prescribed displace- 
ments along lines and surfaces, and inertial loads. 
Temperatures may also be applied to lines and 
surfaces . 

The load and boundary condition generator for 
solid models. Loads may be distributed on lines 
or surfaces. Loads and boundary conditions may 
be displayed on point slices. 

A display and edit routine intended to provide 
local modification capability to loads and bound- 
ary conditions applied by BULKLB. It may also be 
used to generate simple loading on models, or 
loading on models not generated with BULKM. Tem- 
peratures may also be applied to elements. After 
DEFL has been run, the thermal and combined loads 
may be examined. 
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GENERAL 


PURPOSE COMPUTATIONAL AND RESULT DISPLAY MODULES 


OPTIM 


Band width optimization program. OPTIM may be 
called several times in a row, until the best 
node numbering scheme has been achieved. 


STIFF 


Computation of element stiffness matrices and 
their assembly into the master stiffness matrix. 


SAVEK 


This program saves the newly computed stiffness 
matrix . 


PRINT 


Program used to print out parts of the stiffness 
matrix and directory for specified GIFTS models. 


DECOM 


Introduces kinematic boundary conditions, and 
decomposes the stiffness matrix using the Cholesky 
method . 


DEFL 


Computation of the deflections from the current 
loading conditions and the decomposed stiffness 
matrix. If temperatures are present, thermal 
forces will be calculated and added to the current 
applied loads before solution. 


STRESS 


Computation of element stresses based on current 
deflect ions . 


RESULT 


Result display. The program displays deflections 
and stresses. It has many options that may be 
used, at the discretion of the user, to transform 
the results for optimum comprehension. 


RES I DU 


This program computes the residual forces on a 
structure solved by the GIFTS solution programs. 
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THE GIFTS NATURAL VIBRATION PACKAGE 



AUTOL Used to generate starting loads for the subspace 

iteration to compute natural modes of vibration. 

SUBS Performs a single subspace iteration to determine 

the model's natural modes. It must be repeated as 
many times as necessary to obtain convergence to 
the desired extent. 

THE GIFTS TRANSIENT RESPONSE PACKAGE 

TRAN1 Used to specify the time step to be used in the 

integration process and is to be run on a tran- 
sient response model immediately after stiffness 
assembly . 

TRAN2 Computes the displacement matrix for time T and is 

run after TRAN1 and DECOM. 

TRANS Maintains and plots histograms of the displace- 

ments of up to four different freedoms. 

THE GIFTS CONSTRAINED SUBSTRUCTURING PACKAGE 

DEFCS Program to define a constrained substructure's 

(COSUB) boundaries and external nodes . 

REDCS This program generates the reduced stiffness and 

loads matrices necessary for assembly of the 
'COSUB' in the main analysis, as well as the trans- 
formation matrices necessary for local analysis. 
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LOCAL 



THE GIFTS 



LIBR1 

LIBR2 

LIBR3 

LIBR4 



LIBR5 



LIBRD5A 



This program performs local analysis of selected 
' COSUB * models from a major analysis. 

LIBRARIES 



Commonly used machine independent subroutines and 
functions . 

Machine dependent FORTRAN subroutines and functions 
used for graphics, character manipulation and data 
base management. 

Collection of CP/CMS assembler routines used by 
LIBR5 of the IBM (CP/CMS) version. 
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APPENDIX B: 





SUMMARY OF CMS COMMANDS USED 


COMMANDS 


USED IN PROGRAM PREPARATION 


EDIT 


Used to invoke the VM system product editor to 
create or modify a CMS disk file. 


COPYFILE 


Used to copy CMS disk files according to given 
specifications. Used in GIFTS implementation to 
'pack' FORTRAN source code to conserve disk space 


FORTG1 


Used to compile FORTRAN source code using the G1 
compiler . 


FORTHX 


Used to compile FORTRAN source code using the 
H-extended compiler. 


TXTLIB 


Used to generate and modify TEXT libraries. 


LOAD 


Used to bring TEXT files into storage for 
execut ion . 


START 


Used to begin execution of programs previously 
loaded into storage. 


COMMANDS 


USED IN GIFTS FOR FILE MANIPULATION 


ERASE 


Used to delete CMS disk files . 


FILEDEF 


Used to relate logical unit numbers, devices 
and files. 


FINIS 


Used to close files in the CMS environment. 



49 



PRINT 

RENAME 

STATE 



Used to spool a specified CMS file to the virtual 
printer . 

Used to change the names of CMS files. 

Used to verify the existence of CMS disk files . 
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APPENDIX C: 



THE UNIFIED DATA BASE FOR THE IBM 



SEQUENTIAL DATA BASE FILES 



FILE 


LOGICAL 


TYPE 


UNIT NUMBER 


CFR 


27 


DGT 


23 


DYN 


28 


HST 


25 


SAV 


24 



SPECIAL 


SEQUENTIAL 


DATA BASE 


FILES 


FILE TYPE OR 


LOGICAL 


IDENTIFIER 


UNIT 


NUMBER 


SRC 




26 




GIFTS5 


INF 


21 




GIFTS5 


EST 


22 




GIFTS5 


ESX 


29 
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THE RANDOM ACCESS FILES 



FILE 

TYPE 


NUMBER 

OF 

INTEGERS 


NUMBER 

OF 

REALS 


BLOCKING 

FACTOR 


IBM 

SP 

WORDS 


IBM 

DP 

WORDS 


LOGICAL 

UNIT 

NUMBER 


CDN 


4 


180 


1 


184 


364 


51 


CEE 


4 


324 


1 


328 


652 


56 


CLD 


4 


180 


1 


184 


364 


52 


DNH 


0 


6 


10 


60 


120 


64 


DNI 


4 


180 


1 


184 


364 


53 


DNS 


0 


8 


10 


80 


160 


65 


DNT 


2 


72 


1 


74 


146 


75 


ELD 


6 


32 


5 


190 


350 


77 


ELS 


0 


12 


10 


120 


240 


78 


ELT 


25 


10 


10 


350 


450 


79 


FIL 


5 


1 


1 


6 


7 


98 


GRD 


43 


10 


5 


265 


315 


80 


I NT 


5 


0 


10 


50 


50 


81 


KEE 


4 


324 


1 


328 


652 


57 


LD2 


0 


8 


10 


80 


160 


66 


LDC 


0 


8 


10 


80 


160 


67 


LDI 


4 


180 


1 


184 


364 


54 


LDS 


0 


8 


10 


80 


160 


68 


LDT 


2 


72 


1 


74 


146 


76 


LDX 


0 


8 


10 


80 


160 


69 


LIN 


31 


9 


10 


400 


490 


82 


MAT 


5 


11 


5 


80 


135 


72 
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FILE 

TYPE 


NUMBER 

OF 

INTEGERS 


NUMBER 

OF 

REALS 


BLOCKING 

FACTOR 


IBM 

SP 

WORDS 


IBM 

DP 

WORDS 


LOGICAL 

UNIT 

NUMBER 


MEE 


4 


324 


1 


328 


652 


58 


OPO 


2 


0 


40 


80 


80 


73 


OP1 


4 


0 


40 


160 


160 


83 


OP2 


2 


0 


40 


80 


80 


74 


OP3 


i 


0 


40 


40 


40 


84 


PAR 


25 


0 


1 


25 


25 


97 


PLD 


6 


8 


10 


140 


220 


85 


PTS 


10 


17 


10 


270 


440 


86 


PTX 


10 


17 


10 


270 


440 


87 


RES 


0 


8 


10 


80 


160 


70 


SDY 


42 


0 


5 


210 


210 


88 


SD2 


21 


0 


5 


105 


105 


89 


SLD 


129 


9 


1 


138 


147 


90 


SLI 


18 


0 


10 


180 


180 


91 


SLX 


18 


0 


10 


180 


180 


92 


STC 


4 


324 


1 


328 


652 


59 


STF 


4 


324 


1 


328 


652 


60 


STR 


0 


8 


10 


80 


160 


71 


SUR 


4 


26 


5 


150 


280 


93 


TDE 


4 


324 


1 


328 


652 


61 


TEM 


4 


324 


1 


328 


652 


62 


THS 


6 


15 


5 


105 


180 


94 


TIE 


4 


324 


1 


328 


652 


65 
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FILE 

TYPE 


NUMBER 

OF 

INTEGERS 


NUMBER 

OF 

REALS 


BLOCKING 

FACTOR 


IBM 

SP 

WORDS 


IBM 

DP 

WORDS 


LOGICAL 

UNIT 

NUMBER 


TLD 


0 


84 


5 


420 


840 


95 


TMP 


0 


28 


5 


140 


280 


96 


UGC 


4 


180 


1 


184 


364 
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APPENDIX E: 



THE IBM (CP/CMS) GRAPHICS PACKAGE SUBROUTINES 
C* indicates a modified or added subroutine) 



ANMODE 
CURSOR * 



DINIT 



DRAW 



FLUSH * 



Places the Tektronix 4000 series graphics terminal 
into the alphanumeric mode. 

Turns on the graphics cursor, and reads back the 
x and y coordinates of the cursor position when a 
character is struck on the key board. It also 
returns the value of the character struck. This 
subroutine calls assembly routine RDADE for the 
input operation and TOEBCD for conversion of the 
character to EBCDIC. 

This subroutine clears the terminal screen and 
positions the graphics cursor at (0,0) in the 
viewing area. 

Draws a visible line from the current beam posi- 
tion to the absolute coordinates provided. 

This subroutine dumps the graphics output array to 
the terminal and insures that the last character 
in the array is US, which places the terminal into 
alphanumeric mode preventing the interpretation of 
interline characters, sent by the IBM system, as 
graphics characters. Assembly routine WRTADE is 
used to dump the buffer. 
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INTERP 



LINA 



LINE 



MOVE 



OFFSET 



PLTCHR * 



This function linearly interpolates point coor- 
dinates for graphics output. 

This subroutine will draw an invisible or visible 
line, as directed, from the current graphics cursor 
position to the absolute coordinates provided. 

This subroutine will draw an invisible or visible 
line, as directed, from the current graphics cursor 
position to the absolute coordinates provided. 
Subroutine that invisibly moves the terminal’s 
graphics cursor to the absolute screen coordinates 
provided . 

This subroutine switches the Graphics Package 
between the 800 x 800 main viewing area and the 
800 x 223 offset viewing area. 

This subroutine computes, and outputs, the graphic 
control characters necessary to draw a line from 
the current beam position to the absolute screen 
coordinates provided. It will send the minimum 
number of characters needed, from one to four. If 
the output array does not have room for at least 
four characters, it is flushed to the terminal. 
Following the flush, the terminal is placed back 
into graphics mode and the cursor moved back to 
its position prior to the flush. 
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PUTCHR 



SETPT 



TABLET * 



TBELL 
TERASE 
TEXT * 



THOME 



TINITT * 



This subroutine adds characters to the output 
array. If number of characters in the array 
reaches NCHMAX, the array is flushed. 

This subroutine invisibly positions the graphics 
beam to the absolute screen coordinates provided. 
This subroutine reads one point from the digit- 
ising tablet. It is currently inactive in this 
vers ion. 

Rings the bell on the terminal. 

Erases the terminal screen. 

This subroutine outputs characters from a provided 
array to the screen, starting at the current alpha- 
numeric cursor position. The text will be clipped 
at the edges of the screen. Assembly routine 
TOADE is used to unpack the text and convert it 
to ADE . 

This subroutine moves the graphics cursor to the 
home position, and switches the terminal to alpha- 
numeric mode. 

This subroutine initializes the Graphics Package, 
clears the terminal screen, and positions the 
graphics cursor at (0,0) in the main viewing area. 
NCHMAX is set equal to 79 here. 
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TO AIT 



WRTADE * 



RDADE * 



TOADE * 



TOEBCD * 



This subroutine causes the program to wait for a 
given number of seconds. This is accomplished in 
this version by the output of a string of non- 
interfering characters to the terminal . 

This assembly routine converts an array of ADE 
characters to EBCDIC and sends them to the ter- 
minal with the interline characters suppressed. 
WRTADE is an entry point in LIBR5A. 

This assembly routine reads characters from the 
terminal, converts them from EBCDIC to ADE, and 
places them into a specified array. RDADE is an 
entry point in LIBR5A. 

This assembly routine converts a string of con- 
secutive EBCDIC character into ADE characters and 
puts them into consecutive elements (right justi- 
fied) of a full word array. TOADE is an entry 
point in LIBR5A. 

This assembly routine converts a string of con- 
secutive ADE character into EBCDIC characters and 
puts them into consecutive elements (right justi- 
fied) of a full word array. TOEBCD is an entry 
point in LIBR5A. 
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APPENDIX F: 



THE IBM 

DATEP * 
ENI * 

FREAD * 
FREAD2 * 
INCCHR * 

INCHAR * 

INCHR2 * 



(CP/CMS) CHARACTER MANIPULATION PACKAGE SUBROUTINES 
(* indicates modified or added subroutines) 

This subroutine calls IBM Operating System function 
DATIME for the date and converts it into 3A4 format 
This subroutine encodes an integer into a floating 
point variable, left -justified and blank filled, 
and returns the floating point variable and the 
number of characters it contains. 

This subroutine controls interactive I/O operations 
with the user via the terminal. 

This subroutine controls interactive I/O operations 
with the user via the terminal or digitizing tablet 
This subroutine takes a single character, left- 
justified and blank filled, and increments it by 
one . 

This logical function reads a line from the user's 
terminal or steering file as directed by subroutine 
FREAD. 

This logical function reads a line from the user's 
terminal, steering file, or digitizing tablet as 
directed by subroutine FREAD2 . 
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INCNM 



INIHVL * 
INMENU * 
NUMCHR * 
PAKAL * 

PERCNT * 

SECOND * 
TIMEP * 



This subroutine takes an alphanumeric eight char- 
acter name and increments the numeric characters 
in the name by a specified amount. Calls assembly 
routine BTD. 

This subroutine initializes the hardware value 
list for the computer hardware being used. 

This subroutine reads an input line from the 
tablet menu. 

This subroutine counts the number of non-blank 
characters in a single alphanumeric name. 

This subroutine packs alphanumerical information 
into a single word in A4 format. Makes a call to 
assembly routine ENCODE for this. 

This subroutine encodes an integer followed by a 
' I ' sign into a floating point variable and then 
passes it to subroutine TEXT of the Graphics Pack- 
age for inclusion in a plot. A call is made to 
assembly routines DECODE and ENCODE to aid in the 
process . 

This subroutine returns the elapsed CPU time in 
seconds. CPU time is obtained via a call to the 
system routine GETIME. 

This subroutine gets the current time of day from 
the operating system, via a call to DATIME, and 
reformats it to 3A4 format . 
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UPKAL 



* 



DECODE * 



ENCODE * 



DECOD * 



BTD 



This subroutine unpacks text in A4 format into a 
four word array with one character per word, right 
justified and zero (null) filled. UPKAL calls 
assembly routine DECOD for this. 

This added assembly routine unpacks a string of 
characters (4 per word) into a four word array 
with each word containing one left justified 
character. DECODE is an entry point in LIBR5A. 
This added assembly routine packs a string of 
characters contained in single character words, 
into a single word. ENCODE is an entry point in 
LIBR5A. 

This added assembly routine unpacks the characters 
(maximum of 4) contained in a single word into 
four single character words, with the characters 
right justified and the word padded with zeroes 
(nulls) . DECOD is an entry point in LIBR5A. 

This added assembly routine transforms an integer 
into a string of alphanumeric characters. The 
string is right justified with the rest of the 
string filled with a character provided by the 
user. It additionally returns the number of 
characters in the string. BTD is an entry point 
in LIBR5A. 
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ENF * This assembly routine replaces a FORTRAN routine. 

It translates an array in 3A4 format into the 
floating point format 1PE10.3. ENF is an entry 
point in LIBR5A. 
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APPENDIX G: 



THE IBM 



CLOSEF * 



CLOSLP * 



DEFIN * 



DELETE * 



INITIO * 



(CP/CMS DATA BASE MANAGEMENT PACKAGE SUBROUTINES 
(* indicates a modified or added subroutine) 

This subroutine closes an active file in the CMS 
environment via the CMS command FINIS. In addi- 
tion, if the file being closed is GIFTS5 ESX, this 
subroutine calls for the deletion of GIFTS5 EST. 
This subroutine spools to the line printer, if 
directed by the user, the line printer file via 
the CMS command PRINT. 

This subroutine associates direct access file 
identifiers with their respective logical unit 
numbers via the CMS command FILEDEF. It will also' 
zero, or expand, a direct access UDB file as 
directed. 

This subroutine makes direct access UDB files into 
'dummy' files and deletes sequential UDB files via 
the CMS command ERASE. 

This routine initializes the logical unit numbers 
for the direct access UDB files, defines all 
direct access UDB files, turns on the IBM CPU tim- 
ing via a call to routine SETIME, and the current 
GIFTS version number. Additionally, if file 
GIFTS5 ESX exists, it is renamed GIFTS5 EST. 
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INRA 



OPENIF * 



OPENLP * 



OPENOF * 



OUTRA 



PRESNT * 



This subroutine performs all input from the direct 
access UDB files . 

This subroutine opens a specified sequential file 
for input by associating the file identifier with 
its respective logical unit number via the CMS 
command FILEDEF. If the file is GIFTS5 INF or 
GIFTS5 EST and does not exist on the user's disk 
space, it is specified as being on the GIFTS 
system's disk space. 

This subroutine sets the line printer file logical 
unit number and associates the file identifier, 
provided by the user, with this logical unit 
number via the CMS command FILEDEF. 

This subroutine opens a specified sequential file 
for output by associating the file identifier 
with its respective logical unit number via the 
CMS command FILEDEF. If the file to be opened is 
GIFTS5 EST, file GIFTS5 ESX is opened in its place. 
This subroutine performs all output to the direct 
access UDB files. 

This logical function checks for the presence of 
a UDB file. If the file is sequential and not 
present, PRESNT is set equal to false, and if it 
is present, PRESNT is set equal to true. If the 
file is direct access, present on the user's disk 
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RENAME * 



MANAGE * 



SLTASN * 
FRESLT * 

FRTCMX * 



space, and a 'dummy' file, PRESNT is set equal to 
false. And if on the user's disk space and not a 
'dummy' file, PRESNT is set equal to true. If the 
file is direct access and is not present on the 
user's disk space, program module execution is 
terminated. 

This subroutine uses the CMS command RENAME to 
effect the exchange of names between two UDB files. 
When renaming occurs, it also sets a switch to 
indicate to subroutine MANAGE that the renaming 
has taken place. 

This subroutine will assign a logical unit number, 
if provided with the UDB file type, or the UDB 
file type, if provided with the logical unit 
number. If a file has been renamed, MANAGE will 
relate the old logical unit number with the new 
file type. 

For this version, SLTASN is a dummy routine. 

This subroutine was moved from LIBR1 for this 
version and is a dummy routine. 

This assembly routine allows CMS commands to be 
invoked from the executing program module. 

FRTCMX is an entry point in LIBR5A. 
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CONVRT * 



An assembly routine used to convert a four byte 
integer logical unit number into an eight byte 
real number. It is used in passing information 
on the logical unit number to FRTCMX for the exe- 
cution of CMS commands requiring the number. 
CONVRT is an entry point in LIBR5A. 
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APPENDIX H: LISTING OF THE IBM (CP/CMS) ASSEMBLY ROUTINES 
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APPENDIX I: SOME IBM INSTALLATION TOOLS 



FILE TAPE2MVS JCL 



/ /HUNDtEYl JOB (3 16 1,0020 ) , *R . HUNDLEY SMC 2436 » ,CL ASS = D 
//XX PROC 

// EXEC PGM=I EBGENER 
//SYSPRINT OD DUMMY 
//SYSIN 00 DUMMY 

//SYSUTL no UNIT=3400-4,V0L=SPR=GIFTS2 t 
// 01 SP=(OLn,PASS) , LABFL=( SFN.RLP, , IN), 

// DCB=( RECFM = F8 * LREC L = 8 0* BLKSIZE = l6 00 ,DFN=2 , OPTCD=Q) 
//SYSUT2 DO UNIT=33 50, VOL =S FR=M VS004 , 

// , DI SP=(NEW,KEEP),S D ACF=(CYl,(l *1) )» 

// V CCB=(RECFM=FB ,LRECL=80,BLKSIZE=6400) , 

// DSM=S3I61.CFNAME 

// P=NO 

// EXEC XX,FN*l,FNAME*FTLEl 
// EXEC XX, FN=2*FNAME=FILE2 
// EXEC XX,FN=3,FNAME=FILE3 
// EXEC XX, FN=4,FNA M6=FILE4 
// EXEC XX,FN=5,FNAME=FILE5 
// EXFC XX,FN=6,FNAME=FILF6 
// EXFC XX, FN=7, FNAME=FILE7 
// FXFC XX,FN=8,FNAME=FILE8 
// EXFC XX, FN=9,FNAME=FILE9 
// EXEC XX, FN=10, FNAM==FI LEIO 
// EXFC XX,FN = 11 , FNAME = FI LEIl 
// EXEC XX, FN=I2, FNAME=FI LFI2 
// Fxpc XX,FN=L3, FNAME=FI LFI3 
// EXEC XX,FN = 14,FNAME=Fi LE14 
// EXFC XX, FN=15» FN AME=FI LEI5 
// EXEC XX, FN=16, FNAME=FI LFI6 
// EXFC XX,FN = 17, FNAME = FI LE17 
// EXFC XX, FN=I8, FNAME=FILEI8 
// EXFC XX * FN = L 9 , FN AME =FI LF19 
// EX«=C XX, FN = 20, FNAMF = PI LE20 
// EXEC XX, FM=21 , FNAM£ = FI LF21 
// EXEC XX, FN=22, FNAME=FI LE22 
// EXFC XX, FN=23, FN AME=FI LE23 
// FXEC XX,FN=24, FN AME=FI LE24 
// EXFC XX, fn=25, FNAME=FI L=25 
// EXEC XX, FN=26, FNAMF=PILE26 
// EXFC XX, FN=27,FNAME = FI LE27 
// EXFC XX, FN=28, FNAME=FI LF28 
// EXFC XX,FN = 29,FMAME = FI LE29 
// EXEC XX,FN=30, FNAMF=FI LE30 
// EXEC XX, FN=31, FN AME=FILF31 
// EXEC XX, FN=32, FNAMF=PI LE32 
// EXFC XX, FN=33, FNAME=PI LE33 
// EXEC XX, FN=34, FN AME=FILE34 
// EXEC XX,FN = 35,FNAME=PI LE35 
// EXFC XX, FN=36, FNAME=FI LE36 
// EXEC XX,FN = 37,FNAME = FI LF37 
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FILE MVS 2 CMS EXEC 



MVS2CMS EXEC 

THIS EXEC WILL CAUSE THE TRANSFER CF THE GIFTS SOURCE 
CODE FROM MVS DISK MVS004 TO THE USER'S CMS DISK SPACE 

PRIOR TO USE OF THIS EXEC, LINK TO MVS004 BY ISSUING: 

CP LINK MVS 26B 360 RR 
ACC 36B E 



****4t****************4t****4^*********4c4t***4c4c** ****** ******** 
* 

* 

* 

* 

* 

♦ 

♦ 

♦ 

* 

4c 
4c 
4c 

****** * ***************************************************** 

FILEDEF INMOVE E DSN S3I61 FILEI 

FILEDEF CUTMOVE DISK GIFTS5 INF 

MOVEFILE INMCVE CUTMCVE 

FILEDEF INMOVE E DSN S3161 FILE2 

FILEDEF OUTMOVE DISK AUTOL FORTRAN 

MOVEFILE INMCVE CUTMCVE 

COPY AUTOL FORTRAN A = PACKED = (PA 

ERASE AUTOL FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE3 

FILEDEF OUTMOVE DISK BULKF FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY BLLKF FORTRAN A = PACKED = (PA 

ERASE BULKF FORTRAN A 

FILEDEF INMOVE E DSN S316I FILE4 

FILEDEF OUTMCVE DISK BULKLB FORTRAN 

MOVEFILE INMCVE CUTMCVE 

COPY BULKLB FORTRAN A = PACKEC = (PA 

ERASE BULKLB FORTRAN A 

FILEDEF INMCVE E DSN S3161 FILE5 

FILEDEF OUTMCVE DISK BULKM FORTRAN 

MOVEFILE INMCVE OUTMOVE 

COPY BULKM FORTRAN A = PACKED = (PA 

ERASE BULKM FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE6 

FILEDEF OUTMCVE DISK BULKS FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY BULKS FORTRAN A = PACKED = (PA 

ERASE BULKS FORTRAN A 

FILEDEF INMOVE E DSN S3I61 FILE7 

FILEDEF OUTMOVE DISK DECCM FORTRAN 

MOVEFILE INMCVE CUTMCVE 

COPY DECOM FORTRAN A = PACKED = (PA 

ERASE CECOM FORTRAN A 

FILEDEF INMCVE E DSN S3161 FILE8 

FILEDEF OUTMOVE DISK OEFCS FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY DEFCS FORTRAN A = PACKED = (PA 

ERASE CEFCS FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE9 

FILEDEF OUTMOVE DISK DEFL FCRTRAN 

MOVEFILE INMCVE CUTMCVE 

COPY DEFL FORTRAN A = PACKED = (PA 

ERASE CEFL FORTRAN A 
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************ 



FIL50EF INMOVE E DSN S3 16 1 FILEIO 

FILEDEF OUTMOVE 01 SK EDITIB FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY E0ITL3 FORTRAN A = PACKEO = (PA 

ERASE EOITLB FORTRAN A 

FILEOEF INMOVE E OSN S3161 FILE11 

FILEDEF OUTMCVE DISK EDITM FORTRAN 

MOVEFILE INMCVE OUT MOVE 

COPY EDITM FORTRAN A = PACKED = (PA 

ERASE EDITM FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE12 

FILEDEF OUTMOVE DISK EDITS FORTRAN 

MOVEFILE INMCVE OUTMOVE 

COPY EDITS FORTRAN A = PACKED = (PA 

ERASE EDITS FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE13 

FILEDEF OUTMCVE DISK ESTIM FORTRAN 

MOVEFILE INMCVE OUTMOVE 

COPY ESTIM FORTRAN A = PACKED = (PA 

ERASE ESTIM FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE14 

FILEDEF OUTMCVE DISK LOADS FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY LCACS FORTRAN A = PACKED = (PA 

ERASE LOADS FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE15 

FILEDEF OUTMOVE DISK LOCAL FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY LOCAL FORTRAN A = PACKEO = (PA 

ERASE LOCAL FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE16 

FILEDEF OUTMOVE DISK OPTIM FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY CPTIM FORTRAN A = PACKED = (PA 

ERASE OPTIM FORTRAN A 

FILEDEF INMOVE E OSN S3161 FILE17 

FILEDEF OUTMOVE DISK PRINT FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY PRINT FORTRAN A = PACKED = (PA 

ERASE PRINT FORTRAN A 

FILEDEF INMOVE E OSN S3161 FILE18 

FILEDEF OUTMOVE OISK RECCS FORTRAN 

MOVEFILE INMCVE OUTMOVE 

COPY REDCS FORTRAN A = PACKED = (PA 

ERASE RECCS FORTRAN A 

FILEDEF INMCVE E DSN S3161 FILE19 

FILEDEF OUTMOVE DISK RESIDU FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY RESIDU FORTRAN A = PACKED = (PA 

ERASE RESIDU FORTRAN A 

FILEDEF INMOVE E OSN S3161 FILE20 

FILEDEF OUTMOVE DISK RESULT FORTRAN 

MOVEFILE INMOVE GUTMCVE 

COPY RESULT FORTRAN A = PACKED = (PA 

ERASE RESULT FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE21 

FILEDEF OUTMCVE DISK SAVEK FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY SAVEK FORTRAN A = PACKED = (PA 

ERASE SAVEK FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE22 

FILEDEF OUTMCVE DISK STIFF FORTRAN 

MOVEFILE INMOVE OUTMCVE 

COPY STIFF FORTRAN A = PACKED = (PA 

ERASE STIFF FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE23 

FILEDEF OUTMOVE DISK STRESS FGRTRAN 
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MOVEFILE INMCVE CLTMOVE 

COPY STRESS FORTRAN A = PACKED = (PA 

ERASE STRESS FORTRAN A 

FIIEDEF INMOVE E DSN S3161 FILE24 

FILEDEF QUTMOVE DISK SUBS FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY SUBS FORTRAN A = PACKED = (PA 

ERASE SUBS FORTRAN A 

FILEDEF I.NMOVE E DSN S3161 FILE25 

FILEDEF OUTMCVE DISK TRAN1 FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY TRAN1 FORTRAN A = PACKED = (PA 

ERASE TRANI FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE26 

FILEDEF OUTMOVE DISK TPAN2 FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY TRAN2 FORTRAN A = PACKED = (PA 

ERASE TRAN2 FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE27 

FILEDEF OUTMOVE DISK TRANS FORTRAN 

MOVEFILE INMCVE OUTMOVE 

COPY TRANS FORTRAN A = PACKED = (PA 

ERASE TRANS FORTRAN A 

FILEDEF INMCVE E DSN S3 16 1 FILE28 

FILEDEF OUTMOVE DISK TESTCS FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY TESTCS FORTRAN A = PACKED = (PA 

ERASE TESTCS FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE29 

FILEDEF OUTMOVE DISK TESTIG FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY TESTIO FORTRAN A = PACKED = (PA 

ERASE TESTIO FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE30 

FILEDEF OUTMOVE DISK TEST FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY TEST FORTRAN A = PACKED = (PA 

ERASE TEST FORTRAN A 

FILEOEF INMOVE E DSN S3161 FILE31 

FILEDEF OUTMCVE DISK TEST2 FORTRAN 

MOVEFILE INMOVE OUTMCVE 

COPY TEST2 FORTRAN A = PACKED = (PA 

ERASE TEST2 FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE32 

FILEDEF OUTMOVE DISK TSTPLT FORTRAN 

MOVEFILE INMCVE OUTMCVE 

COPY TSTPLT FORTRAN A = PACKED = (PA 

ERASE TSTPLT FORTRAN A 

FILEDEF INMOVE E DSN S3161 FILE33 

FILEDEF OUTMOVE DISK LIBR1 FORTRAN 

MOVEFILE INMCVE OUTMCVE 

FILEDEF INMOVE E DSN S3161 FILE34 

FILEDEF OUTMCVE DISK LI3R2 FORTRAN 

MOVEFILE INMCVE OUTMCVE 

FILEDEF INMOVE E DSN S3161 FILE35 

FILEDEF OUTMOVE DISK LIBR3 FORTRAN 

MOVEFILE INMCVE OUTMCVE 

FILEDEF INMOVE E DSN S3161 FILE36 

FILEDEF OUTMOVE DISK LIBR4 FORTRAN 

MOVEFILE INMCVE OUTMCVE 

FILEDEF INMOVE E DSN S3161 FILE37 

FILEDEF OUTMOVE DISK LIBR5 FORTRAN 

MOVEFILE INMGVE OUTMCVE 
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APPENDIX J: 



GIFTS USER INSTRUCTIONS FOR THE IBM (CP/CMS) VERSION 
TERMINAL USAGE 

GIFTS may be executed on any terminal, but if the terminal 
is not a Tektronix 4000 series graphics terminal, plot com- 
mands must not be used as they will be meaningless and may 
cause termination of execution. If using a non-graphics 
terminal, the user will have only the alphanumeric output 
from GIFTS available. 

GIFTS ANALYSIS PROCEDURES 

The analysis procedures described in GIFTS User's Refer- 
ence Manual are used, but the module IBMUDB must first be 
executed to create the data base for the analysis. Follow- 
ing the execution of IBMUDB, the user will have 48 (small) 
files on the 'A' disk. Upon the completion of an analysis, 
it is the responsibility of the user to erase these files, 
as needed, from his disk space. 

STORAGE REQUIREMENTS 

To ensure sufficient core for an analysis, prior to 
executing a module, issue the command: 

CP DEFINE STORAGE 1M 
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which will place you in the CP operating environment. To 
return to the CMS environment, issue the command: 

CP I PL CMS. 

LINKING TO THE GIFTS SYSTEM’S DISK SPACE 

In order to perform a GIFTS analysis, the GIFTS system's 

disk space must be linked to and accessed as the user's 'C' 

disk. This can be accomplished by issuing the command (user 

input in lower case, computer output in upper case): 

cp link 3161p 191 199 rr 
ENTER READ PASSWORD: 
gifts 

R; T=0 . 01/0 . 01 20:25:17 
access 199 c 
C (199) R/O 

R; T=0 . 01/0 . 02 20:25:25 

Once linked and accessed as the user's 'C' disk, the GIFTS 
system is ready for use. 

ENTERING A BLANK LINE IN GIFTS 

At times, during execution of the GIFTS modules, it will 
be necessary to issue a blank line, or GIFTS may even prompt 
the user to enter a carriage return. It is of the utmost 
importance in both cases, that a space, plus a carriage 
return be entered. If a carriage return alone is entered, 
program module execution will be terminated. 
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EXECUTING A GIFTS PROGRAM MODULE 



To execute a GIFTS program module, issue the command: 

RUN XXXXXX 

where XXXXXX is the name of the desired module. This will 
cause the desired module and necessary libraries to be loaded 
and executed. The user is reminded that module IBMUDB must be 
executed at the start of each analysis. 
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